Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A212A.CMD < prev next >

Wrap

Text File | 1987-01-08 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 212 │" locate 0,8 message s8 locate 0,17 message "│ New York, NY │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- Kashmir ................ 249-9416 V- PC Manhattan ........... 818-7842 ║" message "║ B- The Machine ............ 340-9666 W- Board of Education ..... 882-0547 ║" message "║ C- PC-Serve ............... 348-2049 X- High Tech (PC-Pursuit) . 769-4799 ║" message "║ D- The Invention Factory .. 431-1194 Y- ........................ ...-.... ║" message "║ E- Manhattan South ........ 432-7288 Z- ........................ ...-.... ║" message "║ F- PC Magazine ............ 696-0360 0- ........................ ...-.... ║" message "║ G- Textbase BBS ........... 826-8827 1- ........................ ...-.... ║" message "║ H- Wolves Den ............. 874-6319 2- ........................ ...-.... ║" message "║ I- Medical BBS - NYU ...... 376-7089 3- ........................ ...-.... ║" message "║ J- Data Com ............... 496-7946 4- ........................ ...-.... ║" message "║ K- Friend's ............... 781-4723 5- ........................ ...-.... ║" message "║ L- Cuss-Human ............. 532-2278 6- ........................ ...-.... ║" message "║ M- Metro CPU .............. 757-3387 7- ........................ ...-.... ║" message "║ N- FIDO New York HQ ....... 269-4879 8- ........................ ...-.... ║" message "║ O- New York University .... 285-8860 9- ........................ ...-.... ║" message "║ P- Emergency Medical Care . 269-3023 @- ........................ ...-.... ║" message "║ Q- CompuGuide ............ 431-1273 #- ........................ ...-.... ║" message "║ R- Electric Bookshelf ..... 512-2186 $- ........................ ...-.... ║" message "║ S- Not Just A BBS ......... 581-8251 %- ........................ ...-.... ║" message "║ T- Amer. Psychological Info 662-7171 &- ........................ ...-.... ║" message "║ U- CitiBank Direct Access . 747-0660 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "249-9416" assign s6 "Kashmir " gosub dial else endif find s0 "B" if found assign s8 "340-9666" assign s6 "The Machine " gosub dial else endif find s0 "C" if found assign s8 "348-2049" assign s6 "PC-Serve " gosub dial else endif find s0 "D" if found assign s8 "431-1194" assign s6 "The Invention Factory " gosub dial else endif find s0 "E" if found assign s8 "432-7288" assign s6 "Manhattan South " gosub dial else endif find s0 "F" if found assign s8 "696-0360" assign s6 "PC Magazine " gosub dial else endif find s0 "G" if found assign s8 "826-8827" assign s6 "Textbase BBS " gosub dial else endif find s0 "H" if found assign s8 "874-6319" assign s6 "Wolves Den " gosub dial else endif find s0 "I" if found assign s8 "376-7089" assign s6 "Medical BBS -- NYU " gosub dial else endif find s0 "J" if found assign s8 "496-7946" assign s6 "Data Com " gosub dial else endif find s0 "K" if found assign s8 "781-4723" assign s6 "Friend's " gosub dial else endif find s0 "L" if found assign s8 "532-2278" assign s6 "Cuss-Human " gosub dial else endif find s0 "M" if found assign s8 "757-3387" assign s6 "Metro CPU " gosub dial else endif find s0 "N" if found assign s8 "269-4879" assign s6 "FIDO New York Headquarters " gosub dial else endif find s0 "O" if found assign s8 "285-8860" assign s6 "New York University " gosub dial else endif find s0 "P" if found assign s8 "269-3023" assign s6 "Emergency Medical Care " gosub dial else endif find s0 "Q" if found assign s8 "431-1273" assign s6 "CompuGuide " gosub dial else endif find s0 "R" if found assign s8 "512-2186" assign s6 "Electric Bookshelf " gosub dial else endif find s0 "S" if found assign s8 "581-8251" assign s6 "Not Just a BBS " gosub dial else endif find s0 "T" if found assign s8 "662-7171" assign s6 "American Psy Info Exchange " gosub dial else endif find s0 "U" if found assign s8 "747-0660" assign s6 "CitiBank Direct Access " gosub dial else endif find s0 "V" if found assign s8 "818-7842" assign s6 "PC Manhattan " gosub dial else endif find s0 "W" if found assign s8 "882-0547" assign s6 "Board of Education " gosub dial else endif find s0 "X" if found assign s8 "769-4799" assign s6 "Hi-Tech BBS (PC-Pursuit) " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "Y" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "Z" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "0" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "1" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "2" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "3" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "4" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "5" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "6" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "7" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "8" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit